6 CLEAR,45055:A$="q2r+s+q41I(r2r+s+qPr-r8Xns?pPq)BqKW%s?pPq+X%Wqls:pKp#rAr+bQNW%ggrA&p(rRs%X%Bq<p(rXs&pJW'BqKp(fp>r>#$rNs&rXs(p:Bq<w%p(3qFs(G(X%oCs4X)qà0Aq<qà,Aq<pGrLs%HrNXsAWYrIr+rRqYr?p8JpRr)pM3r)pOqYs's)r;p(Sq8s)pLqYr;p(TqX2s*q?##Q(qA#$/s*q?$c":U=45056
7 B$="F(qA$c/s*3q?##O)3qA##/s*3q?#rBF)3qA#rB/s*0s+J4qYr?q4%I:Wcr8s+/XcVdCqXqYr?q4%I%Vd0s*IqLr8s+2CqGXr1$sBsB$%sBsB$$%#":FORJ=1TO2:FORI=1TOLEN(A$):A=ASC(MID$(A$,I,1)):I=I-(A>111):B=ASC(MID$(A$,I,1)):B=B-35-(A-111)*(A>111)*56:POKEU,B:U=U+1:NEXTI:A$=B$:NEXTJ